home *** CD-ROM | disk | FTP | other *** search
/ Amiga Developer CD 2.1 / Amiga Developer CD v2.1.iso / NDK / NDK_3.1 / Examples1 / PCMCIA / AmigaXIP / xipcode.asm < prev    next >
Encoding:
Assembly Source File  |  1996-02-12  |  1.1 KB  |  85 lines
  1. *
  2. * XipCode.asm - Minimal test of Amiga XIP (execute-in-place) code
  3. * slink from xipcode.o to xipcode library lib:amiga.lib
  4. *
  5.     INCLUDE    "exec/types.i"
  6.     INCLUDE    "exec/resident.i"
  7.     INCLUDE    "exec/macros.i"
  8.     INCLUDE "graphics/view.i"
  9.     INCLUDE    "intuition/screens.i"
  10.  
  11.     section    text,code
  12.  
  13. bcresident:
  14.         dc.w    RTC_MATCHWORD
  15.         dc.l    bcresident
  16.         dc.l    EndModule
  17.         dc.b    RTF_COLDSTART
  18.         dc.b    0
  19.         dc.b    0
  20.         dc.b    0        ;before strap
  21.         dc.l    0
  22.         dc.l    0
  23.         dc.l    startme
  24.  
  25. startme:
  26.  
  27.     movem.l    d1-d7/a0-a6,-(sp)
  28.  
  29.     move.l    4,a6
  30.     lea    iname(pc),a1
  31.     moveq    #00,d0
  32.  
  33.     JSRLIB    OpenLibrary
  34.     tst.l    d0
  35.     beq.s    badopen
  36.  
  37.     move.l    d0,a6            ;intuition
  38.  
  39.     lea    myscreen,a0
  40.     JSRLIB    OpenScreen
  41. ;    tst.l    d0
  42. ;    beq.s    badopen
  43.  
  44.  
  45. wait:
  46.     btst    #6,$bfe001
  47.     bne.s    wait            ;wait for mouse button
  48.  
  49.     move.l    d0,a0
  50.     JSRLIB    CloseScreen
  51.  
  52.     moveq    #00,d0            ;if not joy fire, return FALSE
  53.     btst    #7,$bfe001
  54.     bne.s    badopen
  55.     moveq    #01,d0            ;if joy fire, return TRUE
  56. badopen:
  57.     movem.l    (sp)+,d1-d7/a0-a6
  58.     rts
  59.  
  60. myscreen:
  61.     dc.w    0
  62.     dc.w    0
  63.     dc.w    640
  64.     dc.w    200
  65.     dc.w    2
  66.     dc.b    0
  67.     dc.b    1
  68.     dc.w    V_HIRES
  69.     dc.w    CUSTOMSCREEN
  70.     dc.l    0
  71.     dc.l    myname
  72.     dc.l    0
  73.     dc.l    0
  74.  
  75. myname:
  76.     dc.b    'Just a test screen',0
  77.  
  78. iname:
  79.     dc.b    'intuition.library',0
  80.  
  81.     CNOP 0,4
  82. EndModule:
  83.  
  84.     end
  85.